MacFormat 1996 December/macformat-044.iso/Demos/The Ghost Cave/BB/FOREST.Dxr/00001.ls

Text File | 1996-05-08 | 554 b | 31 lines

on startMovie
  global counter
  set counter to 4 * 12
  set the mouseUpScript to "escaper"
  if the soundLevel = 0 then
    set the soundLevel to 1
  end if
  set the cpuHogTicks to the maxinteger
  set the preLoadEventAbort to 1
  preLoadCast(1, 67)
end

on stopMovie
  set the keyDownScript to EMPTY
  set the mouseUpScript to EMPTY
end

on wait tics
  set nexttime to the timer + tics
  repeat while the timer < nexttime
  end repeat
end

on escaper
  puppetPalette("Black")
  puppetSound(0)
  updateStage()
  puppetPalette(0)
  go(1, "PRELUDE")
end